home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / SASETUP.MSI / F77685_log_download.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  3.0 KB  |  77 lines
  1. <%@ Language=VbScript%>
  2. <% Option Explicit    %>
  3. <%    '------------------------------------------------------------------------- 
  4.     ' Log_download.asp : This downloads the logevents in the specified format
  5.     ' Copyright (c) Microsoft Corporation.  All rights reserved. 
  6.     '-------------------------------------------------------------------------
  7. %>
  8.     <!--  #include virtual="/admin/inc_framework.asp" -->
  9.     <!--  #include file="loc_event.asp" -->
  10.     <!--  #include file="inc_log.asp" -->
  11. <%
  12.     '-------------------------------------------------------------------------
  13.     ' Global Variables
  14.     '-------------------------------------------------------------------------
  15.     Dim page            'Framework varaibles        
  16.     Dim rc                'Framework varaibles    
  17.     Dim F_strEventName    'variable to store eventlog name
  18.     Dim arrTitle(1)        'Title
  19.         
  20.     
  21.     F_strEventName = Request.QueryString("Title")
  22.     
  23.     arrTitle(0) = GetLocalizationTitle(F_strEventName)
  24.     L_DOWNLOADTITLE_TEXT = SA_GetLocString("event.dll", "403F00CD", arrTitle)
  25.     
  26.     Call SA_CreatePage( L_DOWNLOADTITLE_TEXT, "", PT_AREA,page)
  27.     Call SA_ShowPage(page)
  28.         
  29.     '-------------------------------------------------------------------------
  30.     'Function:                OnInitPage()
  31.     'Description:            Called to signal first time processing for this page.
  32.     '                        Use this method to do first time initialization tasks
  33.     'Input Variables:        PageIn,EventArg
  34.     'Output Variables:        None
  35.     'Returns:                True/False
  36.     'Global Variables:        None
  37.     '-------------------------------------------------------------------------
  38.     Public Function OnInitPage(ByRef PageIn,ByRef EventArg)
  39.         'the code that to be place here "F_strEventName = Request.QueryString("Title")"    
  40.         'is removed here as already obtained at the top of the page.
  41.         OnInitPage = TRUE
  42.     End Function
  43.     
  44.     '-------------------------------------------------------------------------
  45.     'Function:                OnServeAreaPage()
  46.     'Description:            Called when the page needs to be served.Use this 
  47.     '                        method to serve content
  48.     'Input Variables:        PageIn,EventArg
  49.     'Output Variables:        None
  50.     'Returns:                True/False
  51.     'Global Variables:        None
  52.     '-------------------------------------------------------------------------
  53.     Public Function OnServeAreaPage(ByRef PageIn, Byref EventArg)
  54.         Dim oValidator
  55.  
  56.         Set oValidator = new CSAValidator
  57.         If ( FALSE = oValidator.IsValidIdentifier(F_strEventName)) Then
  58.             Call SA_TraceOut(SA_GetScriptFileName(), "LogName is invalid: " & F_strEventName)
  59.             Call SA_ServeFailurepage(L_RETREIVEVALUES_ERRORMESSAGE)
  60.             Set oValidator = Nothing
  61.             Exit Function
  62.         End If
  63.         Set oValidator = Nothing
  64.         
  65.         Call SA_ServeDefaultClientScript()
  66.         
  67.         Dim strFrameURL
  68.         strFrameURL = "log_downloadview.asp?Title=" & F_strEventName & "&" & _
  69.                                             SAI_FLD_PAGEKEY & "=" & SAI_GetPageKey()
  70.         Response.Write("<iframe name=IFDownload src='" & strFrameURL & "' width=100% height=300px frameborder=0>")
  71.         Response.Write("</iframe>")
  72.         
  73.         OnServeAreaPage=True
  74.     End Function
  75.     
  76. %>    
  77.